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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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++ 
; FACILITY: SATS SYSTEM SERVICE TESTS 
; ABSTRACT: The SATSSS35 module tests the execution of the following 
: VMS system services: 
SCREPRC 
SGETJPI 
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; ENVIRONMENT: User mode image. ‘ 
; Needs CMKRNL privilege and dynamically acquires other 
privileges, as neede 


; AUTHOR: Larry D. Jones, CREATION DATE: JULY, 1979 
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° ; MODIFIED BY: 
v03-002 LDJ0006 D. Jone 23-Mar-1982 
00 Made the bm unt y & shoslute minimum to test the 
bo SYSBOOT minimum values. 
4 v03-001 RNPOOOS Robert N. Perro 23-Mar-1982 
Removed EXCVEC and F INALEXC rey the JPI “Good List. 
0 v02-006 RNPO004 Robert N. Perron 09-Dec-1981 
Removed ASTEN from the JP1_GooD list. 
; v02-005 RNPOOO03 Robert N. Perron, 02-Oct-1981 
0 Removed ASTACT from the jl _GOOD List. 
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v02-004 LdJ0002 Larry D. Jones 06-Sep-1981 
Fixed GETUPI P1 reference to CTLSAQ_EXCVEC and CTLSAL_FINALEXC. 
v02-003 RNPOOO02 Robert N. Perro 01-Jun-1981 


n, 
To eliminate dependence on fhe SYSTEST account privileges 
being a specific List, privileges are now set to a fixed list 
before the GETJPI tests are started. 


v02-002 RNPOOO0'1 Robert N. Perron 09-Apr-1981 
Fixed problem of STS field changing due to Swapper activ 
Prevent failure when privileges are added to the SYSTEST 
account. Cleaned up some format problems. 


v02-001 L0J0001 Larry D. Jones 17-Sep-1980 
Modified to conform to new build command procedures. 
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~SBTTL DECLARATIONS 
MACRO LIBRARY CALLS 


SATSSS35 = SAT 
yous000 DECLARA 


“mM 


re 


; account record offset definitions 
; device info bigch 9 fer taterens 

3; JPI offset definit 

3 Bk control block definitions 
; Process header definitions 


; privilege definitions 
; shared message definitions 


; stack frame definitions 
; STS definitions 


; UETP message definitions 
SUCCESS 3; success 
ERROR 3; error 


nu 
ier 


SHR message definitions 


00740000 UETP = 116@STS$V_FAC_NO idefine the UETP facility code 


00741038 UETPS <FESIND UETP! SHR$ =DEGINO idefine the UETP messages 
SHH a 


00741080 UETPS_ENDEDD = UETP! SHRS_ENDEDD 


UETPS-TEXT = UETP!SHRS-TEXT 
UETPS” ABENDD = UETP! SHR$_ABENDD 
Mask of bits for the STS field in a SCREPRC system service as they are 
returned from a SGETJPI system service. 
JPI_STS_MASK = <<1a@PCBSV_NETWRK>!<1aPCBSV_SSFEXCU>!<1aPCBSV_SSRWAIT>!- 
<1aPCB$v— _BATCH> '<1@PCBSV_NOACNT> !<1a@PCBSV_HIBER> !- 
<laPCB$V_LOGIN>> 
; The opposite of JPI_STS_MASK 


JPI_STS_NMASK = *CJPI_STS_MASK 


0038C600 


FFC739FF 
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Mask of bits for the Privilege field as they are returned from a SGETJPI 
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1070BF EF <1aPRVSV~SYSPRV>! <1 a@PRVSV~TMPMBX> ! <1@PRVSV_VOLPRO>> 
; The compliment of JPI_PRV_MASK 


JPI_PRV_NMASK = “CJPI_PRV_MASK 
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EP=19 


“SEP=19 


-BLKB SIZE 


a4 


«WORD 0 
«RESTORE PSECT 
-ENDM JPT 


4 
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64 65 6C 69 61 66 00° 
06 
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5605800 DECLARATIONS “SEP-1984 ey UETPSY. SAEISAYSSS 45 .MAR: 1 se 
9090 147 -PSECT ITEM _LIST,RD,WRT,NOEXE,LONG ; psect to store JPI results in 
198 : «PSECT RODATA,RD,NOWRT ,NOEXE,LONG 
130 TEST_MOD_NAME : 
35 33 53 53 53 54 41 53 8" 151 sASCIC /SATSSS35/ ; needed for SATSMS message 
1 TEST_MOD_NAME_D: 
53 53 53 54 41 53 GoRuSeT sete ION” 138 ee, TASCIB /SATSSS35/ ; module name 
13 TEST_MOD_BEGIN: ; start end and fail messages 
6— 75 67 65 62 89" 155 eASCIC § /begun/ 
156 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 90° 139 “ TASCIC + /successful/ 
158 TEST_MOD_FAIL: 
135 ~  TASCIC /failed/ 
16 
16 


° CS1: ; failure messages 


MOCO “WIND 1 SP PW PW MH MOOOVNOOCOOCOCSOSOO —-~< 
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21 20 74 73 65 54 00000039'010E0000° .ASCID \Test !AC service name !AC step ‘UL failed.\ 
6 30 68 63 89 Fe Pees 7s 90's 41 oe: ‘ 2 ws 
70 65 74 0 43 41 21 20 $8 $} 
2E 64 65 6C 69 61 66 20 4C 55 21 20 8 162 C82: 
74 63 65 70 78 45 99000068 "9 106000 . 188 ; -ASCID \Expected !AS = !XL received !AS = !XL\ 
4c 58 $f 20 3D $0 53 41 21 eo 4 
41 21 20 64 65 [O82 $3 30 $3 35 88 8 
164 CS3: 
74 rH 65 70 78 45 99099096" 9106 909 . 165 -ASCID \Expected !AS'!UB = !XL received !AS'!UB = !XL\ 
20 3D $0 42 55 21 53 41 21 20 ge 
64 65 76 69 65 63 65 72 g 4C 58 21 OOAA 
58 21 20 3D 20 42 55 21 41 21 ¢° i 
oc 166 CSS: 
77 20 65 64 6F 4 99009068" 105 9000" ae 167 -ASCID \Mode was !AS.\ 
4 168 EXP: 
73 75 74 61 74 73 000000E0'010E0000" 00D 198 -ASCID \status\ 
bee 170 AST_PARAM: 
61 70 20 54 53 41 eenets Byte fl Bee 171 -ASCID \AST param.\ 
OOF 172 BP: 
70 20 65 73 61 62 00000160"91 06 9099" ors 158 -ASCID \base pri.\ 
109 174 PNS: 
73 65 $ 6F es 50 00000111°010 6099" Hi 175 -ASCID \Process name was not set correctly.\ 
of 0 61 77 20 § 6D 1 3 117 
oar reeane ne 
154 176 STSFLGS: 
47 4C 46 53 54 53 stead tidiy ; S 149 17 -ASCID \STSFLG's\ 
14 178 UIC_MSG: 
43 49 55 0000014C'010E0000' 0144 155 2: eASCID \WIC\ 
14F 180 EF C_NAME : 
46 53 53 54 41 53 00000157'010E0000° O14F 181 eASCID \SATSSFO6_DET\ 
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44 49 50 00000168'010E0000' 
43 52 50 45 52 43 8 
6 


+ASCID \PID\ 


i PID_STR: 
~ASCIC \CREPRC\ 


¢ CREPRC: 


GETJPI: 
49 50 4A 54 45 47 9" 9 eASCIC \GETJPIN 
UM: ; mode messages 
-ASCID \user\ 


| 
a 


72 65 73 75 00000184'010E0000' 
58 42 4D 35 33 53 00000190'010E0000' 


00000000 1070BFEF «QUAD JPI_PRV_MASK ; used for setting privileges to 


known value 


NPRVMASK: 


00000000 EF8F4010 «QUAD JPI_PRV_NMASK used for clearing any extra 


privileges 


MSGVEC: 
«LONG 3 ; PUTMSG message vector 
-LONG UETPS_TEXT 
“LONG 
“ADDRESS MESSAGEL 
QUOTA_LIST: 
-BYTE PQLS_ASTLM 3; minimum quota List 
POL$_BIOLM 
“BYTE PaL$_BYTLM 
‘BYTE PQLS$_CPULM 
“BYTE POL $_DIOLM 
“BYTE POLS_FILLM 
{BYTE POLS_PGFLQUOTA 
POL$_PRCLM 
“BYTE PQL$_TQELM 
“BYTE POL$_WSDEFAULT 
{BYTE POL$_wSQUOTA 


“BYTE PQL$_LISTEND 
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; GETJPI entrys which will vary 
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45E 5 JP TQCNT,4 

AGA 6 JP1 VOLUMES ,4 

4 : JPI VIRTPEAK,4 

4 8 JPI WSAUTH,4 

4BE 9 JP1 WSQUOTA,4 

49A 0 JPL WSPEAK,4 

AAs 91 JPI WSSIZE 4 

00000000 048 92 LONG ; list terminator 
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ro V04- 392. 
-SEP-1 UETPSY.SRCIJSATSSS MAR; 1 
48 94 JPI_GOOD: 3 expected GETJPI results 
48 95 ; Item name buffer offset 
20 54 53 45 54 53 Bods rt 38 oASCTE (SYSTEST / ; AeeCUNT 0 
scp 98 JP1_GOOD_SHRT: : 
0000909" 4¢ 9 -LONG 0 3; CPULIM OA 
4 Q04C4 0 «WORD 4 3; CPULIML oF 
00000000 10708F Ai rh 1 UN grt PON FORE 3 end + 
00000001 250 : “LONG 1 : GRP 1A 
404 4 WORD : CRPL 1E 
00000000 0000 406 5 eQUA 3 IMAGEPRIV 8 
rt § WORD 3 IMAGEPRIVL 
0000 4E 8 .LON 3; MEM A 
4 4E4 8 » WORD 3; MEML E 
0000000 4E6 09 LONG 3; PRCLM 0 
00 GEA 10 ~ WORD 3; PRCLML 8 
00000014 rt? 11 LONG “X14 ; TQLM A 
BOs 4F \§ ~WORD 2 3 TQLML E 
00010007 O04F2 1 LONG *%*x10007 ; UIC 40 
- 04 Bere 14 WORD 4 ¢ UVICL 44 
20 20 20 20 20 54 53 45 54 53 59 53 4F 15 ASCII /SYSTEST / 3; USERNAME 46 
000C Bene 18 a: WORD *xc 3; USERNAMEL 52 
4E 49 24 53 59 53 OO0005S0E' 91069098" 0506 18 eASCID /SYSS$INPUT/ 
m8 30 EE e out 
55 4F 24 53 59 53 0000051F‘010E0000' 0317 335 \. -ASCID /SYSSOUTPUT/ 
54 55 50 54 8 3 + eons 
52 45 24 53 59 53 sania iy: 82 ; 35) . -ASCID /SYSSERROR/ 
53A $33 IMAGE _NAME : 
54 55 53 54 41 53 09009548" 9105, 0090" 7A 24 eASCID /SATSUTO1.EXE/ 
054E 335 PROC_NAME : 
54 55 53 54 41 53 00000556’ 01069090" Baek 26 ASCID /SATSUT35/ 
00000565 8275 352 ae wc 7 
00010007 b3e2 329 i LONG *x10007 3; process UIC 


sOSSH 


00000000 
00000000 


00000044 
00748009 
00000000" 
00000019" 

00 
00000000 
00000000 
00000065 
00000000 
00000000 
74 73 69 67 65 72 00000073 "91059099" 
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00000000 
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00000000 


00000050 
00000133" 


00000133 
00000183 


000000 
00000193" 


sure 
000021 
00000000 
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{PID: 


CURRENT _TC: 
TALIGN LONG 


$ 
P 


BIT 
SEC 


LONG 


L R 
, e 


0 


REG_SAVE_ AREA: 


-BLKL 15 g 
MOD_MSG_CODE : 

.LONG UETPS$_SATSMS : 
TMN_ADDR: 

«ADDRESS TEST_MOD_NAME 
TMD_ADDR: 

-ADDRESS TEST_MOD_BEGIN 
PRVPRT: 

-BYTE 0 : 
PRIVMASK: 

-QUAD 0 3 
CHM_CONT: 

-LO 0 : 
RETADR: 

~BLKL 2 Py 
STATUS: 

-LONG 0O 
MODE: 

-LONG 0 $ 
REG: 

-ASCID \register R\ 
REGNUM: 0 
MSGL: 

-LONG 80 3 
cre -ADDRESS BUF 

SCREPRC P1D1,0,0,0,0,0,QUOTA_LIST, 
iad 0,0,6,6,6 ; 
GET SGETJPI1 EFN=1,PIDADR=PID1,PRCNAM=T 
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4 
4 


/W Pict 
WOATA,RD,WRT,NOEXE,LONG 


SGETJPI ITMLST=GET_LIST 
ITEM_LIST: 
~BLKL 


12 

BUF : 

-BLKB 80 
ML: 

~LONG 0 

ADDRESS GETBUF +8 
GETBUF : 

-LONG 132 

ADDRESS +4 

“BLKB. 132 
MESSAGEL: 

-LONG 0 


AX/VMS Ma 
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) 


PID for this process 


ptr to current test case 
put it on a long word boundry 


register save area 
test module message code for putmsg 


protection return byte for SETPRT 
priv. mask 

change mode continue address 
returned address's from SETPRT 


current mode string pointer 


register number 
buffer desc. 


CREPRC parameter List 
GETJPI parameter List's 
EST_MOD_NAME_D,ITMLST=GET_LIST 


desc. for BUF_CHECK routine 


message desc. 
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00000000 
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00000000 

00000000 00000000 
00000000 

0000 

0000 

00000248 

000002AF 

00000000 

00000000 00000000 
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SERV_NAME : 
MSGVEC1:— 


FP Se ot oe ot ot ot ot et te 


ADDRESS BUF 


ETP$_TEXT 
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UETPSY.SRCISAT 


service name pointer 
PUTMSG message vector 


; 10 status block 

; PID storage location 

; MBX channel location 

; MBX unit number 

; MBX read I0 status block 
; MBX read buffer 

; GETJPI parameter 

; privilege mask 
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-PSECT SATSSS g- RD .WAT EXE -LONG 
-SBTTL SATSSS 


+ 
FUNCTIONAL DESCRIPTION: 

After performing some initial housekeeping, such as 
printing the module begin message and acquiring needed privileges, 
the system services are tested in each of their normal conditions. 
Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 

$ RUN SATSSS35 ... (DCL COMMAND) 
INPUT PARAMETERS: 

none 
IMPLICIT INPUTS: 

none 
OUTPUT PARAMETERS: 

none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS35. 
They are of the form: 


ZUETP=S-SATSMS, TEST MODULE SATSS 

ZUETP=S=SATSMS, TEST MODULE SATSS 

RUETP-E=SATSMS, TEST MODULE SATSS 

RUETP-I-TEXT, ... (VARIABLE INFOR 
COMPLETION CODES: 


The SATSSS35 routine terminates with a $EXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 


none 


Page 12 
. (1 


saa ui | 
0 


Fe ae ot ot of ot ot ot tt a MU UUUUUAUUMUMUAAUMUMUAMAMUMUAMUeMUAUUMAUMUAAAHnmMMM a 
OOM BBB BB BEB BWW IInoononononononon) 
OOD NAWE WN OOD NAUES WN 0 OONAUEWN OOD NOAUFWN OOO NOUS WN 


TEST_START SATSSS35 ; let the test begin 


¢ 9 
SATSSS35 TS_SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:50:17 VAX/VMS Macro V04- age 13 SA 
5005880 sats gse3e g7SEb- 1986 38:38 :8, DET hey. cae ISAY SSS S.MAR: 1 . (1) ve 
0000 Q ENTRY SATSSS35,0 
O004'CF D4 W*CURRENT_TC 
DD 3 L #0 
0000'CF DF PUSHAL W*TPID 
i 0000' GF 3 FB § $ § 6 Sv SSuAKE 
0000000 ' GF FB 1 CALLS) #0,G*SYSSHIBER 
9'CF 7F OO1A PUSHAQ W*TEST_MOD_NAME_D 
00000000 ' GF 1 F8 3 #1,G°SYS$S Ma oe 
OO4C'CF oo1r ee 3 8 MOVAL UTES? NOD. St Sue t, W*TMD_ADDR 
0044'CF 03 00 1 P5 F #SUCCESS,#0,43,W*MOD _ASG_CODE 
0D g PUSHL 
OBF3'CF 01 FB 3 CALLS #1,W*REG_SAVE 
003D STPO: 
003D 166 -SBTTL CREPRC TESTS 
003D 463 ;+ 
003D 464 ; 
003D 465 ; SCREPRC tests 
003D 466 ; 
003D 467 ; test the minimum quota all defaults subprocess with _S 
003D 468 ; 
003D 469 ;- 
O069'CF O17C'CF DE 003D 470 MOVAL W*UM,W*MODE 3 set the mode 
O21F ‘CF 016E ‘CF DE 0044 £471 MOVAL W*CREPRC W*SERV_ NAME 3; set the service name 
0048 t%8 SCREMBX_S ape a W*“MBCHAN, = 
0048 47 NAM=W“MBNAM ; make something to Listen with 
006 474 SGETCHN_ ; CHAN= W°MBCHAN, - 
006 475 cegeve wensaihe ; get the unit number 
0241'CF O19F'CF BO 007 476 W*GETBUF+8+DIBS$W_UNIT,W*MBXUN =; and save it 
007F 477 SCREPRC 5 GuOTAcu=ay UOTA_CIST,=- 
OO7F 478 XUNT=W*MBXUN- 3; create a subprocess with _S 
OOAS 479 FAIL_ cMece SS$_NORMAL ; check for success 
00000000°8F ODD O0A5 PUSHL #5S$_NORMAL 
OBFD'CF 01 FB OOAB CAL Us #1,W"REG_CHECK 
56 00000000'°8F D0 O0BO0 480 MOVL PRN. FNF RO i; set exit status code 
57 D& Q0B7 481 CLRL R7 ; disable PID checking this time 
OD30'CF 00 FB Boer rt} " CALLS #0,W*CRE_CHECK ; check the process exit code 
iet3 tba 3 : 
OBE 485 ; test the PIDADR parameter with _G 
QOBE 486; 
OBE 487 ;- 
ee 488 NEXT_TEST 
OBE STP1 
0004 ' CF 01 dO bee MOVL #1 «W“CURRENT _ TC 
00 DD C PUSHL 40" 
OBF3'CF 01 FB O0C5 CALLS VE 
0087 ' CF 0241'CF B0 Bacn $82 OVW _ nBHUN, SACRE SEREDACS _MBXUNT 3 set the MBX unit number 
D1 490 SCREPR “CR ; try .G and PIDADR param. 
ODA 491 FAIL “CHECK SS$_N ; check for success 
00000000'8F DD DA SHL NESS$. NORMA 
OBFD'CF 1 FB E CA ACLS #1,W"REG_ CHECK 
7 06 E 138 INCL R7 : enable PID checking 
0D30°CF 30 Fe E 49 CALLS #0,W*CRE CHECK ; check the process exit code 
56 00000000'8F oD EC 494 MOVL #ss$_ NORMAL ,R6 3; set expected status return 


cATS3835 


om 
ang 4 
wm 
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: test the IMAGE param. with _S 


NEXT_TEST 


TP2 
0004*CF 0 : 


oan 46" »W*CURRENT_TC 
OBF 3° CF 1 


PUSH 
EG_SAVE 
SCREPRC_S “tuBTasU*GUoTA. cist. - 


DD 


00000000" BF DD ; check success 
OBFD'CF 01 FB 
3; cause process termination 
wre 98 #0,W*°CRE 3 check Che process exit code 


A 
: test the INPUT param. with _G 


NEXT_TEST 


SHELL LEW THN 


0004 'CF 93 ar. ae W*CURRENT_TC 
OBF3'CF O01 FB a6 

CF 

CF 

CF 


514 MOVAL W*IMA E,UFCRE EREPRCS IMAGE ; set image name 

515 BOVAL W*PID1 TOMCRESCREPRC 3 set the PID save address 
516 VAL rie we CRE+CREPRCS_ INPUT 3; set the INPUT param. 
517 SCREPRC s tr 

518 FAIL_ CHECK $$$ SN. 3 check success 
Hames CHECK 
SWAKE_S PIDADR = W*P cause process termination 
CALLS” #0,W*CRE_CHECK 3 check the process exit code 


OO93'CF  Q53A' 
OO8F°CF  0238' 
0097°CF  0506' 


poopegoo" 8F DD 
OBFD'CF O01 FB 


ODS0'CF O00 FB 


: test the OUTPUT param. with _S 
, NEXT_TEST 


QO04'CF 04 
OBF 3° CF 1 


atts #4 ,W*CURRENT_TC 


#1 W*REG_SAVE 
SCREPRC_S "Bibapas w*PID 
= Ws IMAGE. _NAME , = 


hea - 
MBXUNT=* 
QUOTA =W"QUOTA, LIST 3; try _S with OUT param. 


COOOOOVO SVG FFF 99999 DD PCOO NO ONG DAA OAOAAOAA MRL NOON HHT SD OOWANIAIAAA 
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533 FAIL_CHECK SS$_NORMAL 3; chec success 
PUSHL 


nn 
=“ 


Q00000000"8F dD 
OBFD ‘CF Bt 
OD30'cF O00 FB 


CALLS 
SWAKE_S PIDADR = w*PID cause process termination 
CALLS #0,W*CRE_CHECK 


check process exit code 


test ERROR param. with _G 


NEXT_TEST 
STPS: 
0004 'CF 0S 00 MOVL #5,W*CURRENT_TC 
00 dD PUSHL #0 
OBF3'CF 01 FB CALLS #1,W*REG_SA 
OO9B'CF O517°CF ODE Hr) MOVAL W*OUT ,W*CRE+CREPRCS$_OUTPUT ; set the output param. 
OOOF*CF  O529°CF ODE 54 MOVAL W*ERR,W*CRE+CREPRC$_ERROR 3 set the error output param 
544 SCREPRC_G WACRE : try .G with ERROR param 
545 FAIL_CHECK SS$_NORMAL ; check for success 
00000000'°8F DD PUSHL ~ #SS$_NOR 
OBFD'CF 01 FB CALLS #1 .WEREG_CHECK 
248 SWAKE_S PIDADR = W*PID1 3; cause process termination 
OD30'CF O00 FB ete ‘ CALLS) #0,W*CRE_CHECK ; check process exit code 
549 ; 
239 ; test PRVADR param with _S 
226 3° 
55 NEXT_TEST 
STP6: 
0004'CF 06 DO MOVL  #6,W*CURRENT_TC 
00 DD PUSHL # 
OBF 3‘ CF 01 FB CALLS #1 W*°REG_SAVE 
SCREPRC_S PIDADR=W*PID1,- 
IMAGE =W*IMAGE_NAME ,- 
INPUT =W*IN,- 
OUTPUT=W*OUT ,- 
ERROR =W*ERR,- 


PRVADR=W*PRIVS,- 
MBXUNT=W*MBXUN, - 
QUOTA =W*QUOTA-LIST 
FAIL_CHECK $S$_NORMAL 
PUSHL ~ #SS$_NORMAL 
CALLS #1,WFREG_CHECK 
SWAKE_S PIDADR = W*PID1 
CALLS” #0,W*CRE_CHECK 


try _S with PRVADR param 
check success 


AOOCMMUIMITINM 
M—OOONOUS 


00000000'8F OD 
OBFD'CF 01 
cause process termination 
check image exit status 
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OD30'cF 00 FB 


test PRCNAM param with _G 


PIAIVIVIVIVIIV PAA AIIVIVIVIV) 
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NEXT_TEST 
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STP7: 


0004'cF 07 DO MOVL #7, W*CURRENT_TC 


:: -S 
says 5 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP=-1 AX/VMS Macro V04- Page 16 S 
bu5888 CREPRC TESTS maar 1 82: 38: yi UETPSY.S SRE SAYSSSS.MAR: 1 tf vi 
0 oD 4 PUSHL 
, OBF 3" F gt FB 6 CALLS At W*REG_SAVE 
Qogr cE O529.ck DE 71 MOVAL W*ERR,W*CRE+CREPRCS ERROR ; set the ERROR param. 
QOA3" CF B \CF DE ie ROVAT W*PRIVS ,W°CRE+CREPRCS$_PRVADR ; set the PRVADR param. 
OOAB' CF GE'CF DE G 7 W*PROC NAME -W"CRE*CREPRCS. PRCNAM ; set the process none 
A 74 SCREPRC G W*CRE ; try .G with a PRCNAM 
A 75 FAIL_CHECK SS$_NORMAL : check success 
00000000' 8F DD Ag PUSHL ~ #SS$_NORMAL 
BFD'CF 01 FB AF CALLS #1 -WEREG CHECK 
O21F'CF O175'"CF ODE B4 26 MOVAL W*GETJPI, W SERV_RAM 3 set service name 
B 7 SGETJPI_S PIDADR = W*PID1,- 
: 4 Fatt CHECK! S$ NOR ‘hl (ist : get the process name 
; check success 
00000000'8F oD D “ PUSHL ~ #SS$_N 
BFD'CF 01 FB D CALLS if SUTREG. CHECK 
O21F'CF O16E'CF ODE D 580 MOVA ie RC RV_RAM 3; set service name 
0556'CF O1A2'CF 4 $3 ; 28) seer #hgeue Rc .W SE W-PROC NAME +8 : sorcech precese name? 
QO109'CF OF E 258 PUSHAL W*PNS 3 push string variable 
OC3F'CF 01 FB : fe 10$ CALLS #1,W*PRINT_FAIL 3 print the failure 
F 586 SWAKE_S PIDADR = W*PID1 3; cause process termination 
OD30'CF 00 FB 8 388 = CALLS” #0,W*CRE_CHECK : check laces exit status 
0 89 : 
8 239 ; test BASPRI with _S and a lower priority 
0 235 :- 
0 59 NEXT_TEST 
0 STP8: 
0004 'CF 08 dO 0 MOVL #8 ,W*CURRENT_TC 
00 DD 0 PUSHL 
OBF3'CF 01 FB 1 CALLS a" W*REG SAVE 
1 594 SCREPRC_S PIDADR IDT,- 
15 595 IMAGE = = UnIRAGE_ _NAME , = 
1 596 INPUT = W*IN 
15 597 OUTPUT = wout.- 
1 598 ERROR = ) nate = 
1 599 BASPRI = #1 
15 600 PRVADR = WAPRIVS ,~ 
1 601 a that = W“MBXUN, 
1 O06 = W*QUOTA. LIST 3; try all that 
4 60 FAIL_CHECK ses. “NORMAL 3: check success 
00000000'8F oD 4 PUSHL a3s3_N 
OBFD'CF 01 FB 4 CAL ts 8 wuTREG.C CHECK 
O21F'CF O175'CF ODE 5 60 VAL UNGETUPI. W SERV RAM AME 3; set service name 
5 60 SCL TUPI _5 PIDADR = W*PI 
5 60 SE NOR = Del “LIST : get the base priority 
7 60 FAIL_CHECK SS$_NORM . 3 check success 
00000000' oO 7 PUSHL ~ #SS$_N 
OBFD' CF 7 CAL ts HL euPREG.C CHECK 
O21F'CF  016E" 7B «6 MOVAL unCREPRC w*SERV_RAME > set service name 
01C3'CF 6 CMPL #1,W°PRIB ; is it correct? 
6 BEQL 50g" : br if OK 
01¢3° c 6 PUSHL W*PRIB 3 push received 
1 6 PUSHL #1 3 push expected 


SH 


G 9 
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Sbu 880° CREPRE reste" atten Bhai g- SEF 18 4 8? 30: yy UETPSY.SRCJ SAT yeesgs, MAR; 1 (1) 
4 1 PUSHAL W*BP 3 push str var ible 
ocse'ee : 4 : oH 0S: CALLS #3,W*PRINT_FAIL 3 ah, the failur 
: SWAKE_S PIDADR = W*PID1 3; cause process termination 
OD30'CF O00 FB AS i . CALLS” #0,W*CRE_CHECK ; check image exit status 
19 : 
MA : ; test BASPRI with _S and a higher priority 
AA 622 :- 
~ 6 g NEXT_TEST 
TP9: 
0004 'CF + po : AA : pat Af W*CURRENT_TC 
_—s - fe 0 et 624 MODE om cee ; kernal mode to access PHD 
59 _00000000'9F 00 58 625 MOVL aeeTe R9 ; get process header address 
OOS1'CF 69 ODE SSA 626 MOVAL PHDSO Mh es ees, W*PRIVMASK ; get priv mask address 
O3DF 627 MODE RO 3; get back to user mode 
O3E0 628 PRIV ADD, SETPRI : add SETPRI priv 
00 DD 0400 629 so 3; push a dummy parameter 
OBF3'CF 01 FB 040 630 LLS W*REG_SAVE 3; Save the registers 
hyd 631 SCREPRC § ‘PIDADR™ = W°PID1,- 
0407 63 MAGE = W*IMAGE_NAME,- 
0407 $3 INPGE = W*IN,- 
0407 634 OUTPUT = W*OUT,- 
0407 635 ERROR = W*ERR,- 
0407 636 BASPRI = #4,- 
0407 637 renont . ureRivs.- 
be07 ret "Gut : W*QUOTA_LIST i; try _S higher priority 
ott 640 FAIL = CHECK $38. NORMAL 3; check success 
00000000 * 8F DD 0439 PUSHL “ 4 aed a —_— 
o2reeee §475°CF 43 ree 641 VAL Yet nWSERV RAM AME 3 set the service name 
beeg og sce TV ‘ TTB = — “Ust 3; get the base priority 
is 644 FAIL ~CHECK”$88.NO oo omni 3 check success 
eooreree” 8F DD 046 3 
D'c 01 FB 046 CALL LLS #1 ow REG CHECK : > ee eaclielk ane 
Cet ACSC’ 06 Bd a46p ete eR ispeiee ene : isthe: priority ox? 
o1c3" CF DD 047B be PUSH W"PRIB : push received 
DD 047F rk: PUSHL #4 3 — expected 
DF 481 650 PUSHAL W*BP : h the oer perenne 
OC3F* opr act FB ab 634 30$ ALLS #3,W*PRINT_FAIL 5 3 the failure 
48A 65 SWAKE_S . DADR = W*PID1 3 cause process termination 
OD30'CF 00 FB 7) 44 o28 oe CALLS” #0,W*CRE_CHECK 3 check image exit status 
9 : 
196 838 3; test detached process 
19 680 | 
49C 660° NEXT_TEST 
| 
i 
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SATSSS35 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:50:17 \VAX/VMS Macro V04- 
$bu 883 CREPRC TESTS mits P 90:30 44 Be eey Rea SAy SES SS MAR: 1 
49C 
49C¢ STP10: 
0004'CF A 00 rH] MOVL #10,W*CURRENT_TC 
DD OQ4A PUSHL 
OBF3'CF 1 FB Q4A CALLS #1,W*REG SAVE 
4A 661 SCREPRC_S PIDADR = W*PIDT,= 
4A 66¢ IMAGE = W*IMAGE_NAME,- 
4A 66 INPUT = W*IN,- 
4AB 664 OUTPUT = w*OuUT,- 
4A 665 ERROR = W*ERR,- 
4A 096 BASPRI = #2,- 
4A 66 PRVADR = W*PRIVS,- 
4A 8 MBXUNT = W*MBXUN, 
4A8 098 QUOTA = W*QUOTA_LIST,- 
4A8 670 et = W*PROC_OIC 3; try _S and all this 
40C 671 FAIL_CHECK SS$_NORMAL ; check success 
00000000 ' 8F DD 04D PUSHL #SS$_NORMAL 
OBFD'CF 01 FB O4E CALLS #1 WEREG CHECK 
O21F'CF O175'"CF DE O04E 678 MOVAL W*GETJPI,W*SERV_RAME 3 set service name 
Bree 67 SGETJPI_S PIDADR = w*PIDB1,- 
oft 674 ITMLST = W*GET_LIST 3 get the process UIC 
050 675 FAIL_CHECK SS$_NORMAL 3; check success 
00000000'8F DD 0505 PUSHL ~ #SS$_NORMAL 
OBFD' CF 01 FB 0508 CALLS #1 WEREG CHECK 
O21F'CF O16E'CF ODE B218 676 MOVAL W*CREPRC,W*SERV_RAME 3 reset the service name 
O565'CF OO3C'CF D1 0517 677 CMPL wW*UIC,W*PROC_UIT : is the UIC correct? 
11 13 B25 678 BEQL 40$ ; br if OK 
OO3C'CF DD 0520 679 PUSHL W*UIC 3; push received 
0565'CF DD 0524 680 PUSHL W*PROC_UIC 3; push expected 
0144'CF ODF 0528 681 PUSHAL W*UIC_ASG ; push the string variable 
OC3F'CF O03 FB Be § one one CALLS #3,W*PRINT_FAIL ; print the failure 
0531 684 SWAKE_S PIDADR = W*PID1 3; cause process termination 
OD30'CF O00 FB bez ? 2 P CALLS) #0,W*CRE_CHECK 3; check the process exit status 
054 687 ; 
054 688 ; test the STSFLG’s _S with all set 
54 689 ; 
54 690 ;- 
34 691 NEXT_TEST 
034 STP11: 
0004 CF 0B dO 54 MOVL #11,W*CURRENT_TC 
8 DD 548 PUSHL 
OBF 3°CF 1 FB 54A CALs #1,W*REG_ SAVE 
54F 86 69 MODE T0,45$,KRNL ,NOREGS 3; kernal mode to access PHD 
59 00000000'9F  0D0 2$ 69 MOVL aatTL$éL PHD ,R9 3 get process header address 
0051'CF 69 ODE 5 694 MOVAL PHDS$Q_PRIVMSK(R9) ,W*PRIVMASK : get priv mask address 
27 695 MODE : 9 ack to user mode 
? 696 PRIV ADD, PSWAPM : add PSWAPM priv 
599 °2 PRIV ADD ,NOACNT ; add NOACNT priv 
589 4 PRIV ADD ,NE TMBX 3; add NETMBX priv 
69 DD 203 +4 PUSHL @# 3; push a dummy param 
OBF3°CF 1 FB D 0 CALLS #1,W*REG_SAVE 3; Save a reg Snap shot 
O21F *CF 0175'CF DE 5E 701 MOVAL W*GETJPI,W*SERV MAME 3 set service name 
ef 7? § S$GETJPI_S ITMLST = W*GcT_LIST ; get the current process privs 
rc F FAIL_CHECK SS$_NORMAL 3 check success 


BEQL 508 : br if OK 
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SATSSS35 = SATS SYSTEM SERVICE TESTS csuct $.C.) 16-SEP-1984 00:50:17 VAX/VMS Macro V04- age 19 
$Ou5880 CREPRC TESTS met 7 $8538; 34 UE They. SRE ISATSSS $5 .MAR: 1 . (1 
o9090000" sf DD OSF PUSHL #SS$_NORMAL 
OBFD' CF 1 FB CALLS @#@ ,WEREG CHECK 
tah aed serge bE 704 MOVAL W*CREPRC,W*SERV_RAME 3 set the service name 
B3'CF 010'CF D 705 Ova UMCURPRIV.W PRIS 3 set the detached process privs 
2 7 $ SCREPRC_S PIDADR = W*PIDI,- 
oe: IMAGE = W*IMAGE_NAME ,- 
61 7 8 INPUT = W*IN,- 
615? OUTPUT = w*ouT,- 
61 710 ERROR = W*ERR,- 
61 711 BASPRI = - 
61 ar PRVADR = W*PRIVS,- 
2 71 MBXUNT = W*MBXUN,= 
1 714 QUOTA = W*QU0OTA_LIST,=- 
61 715 VIC = w*PROC_OIC,- 
61 £18 STSFLG = #*XFF 3 try every thing _S 
64D 71 FAIL_CHECK SS$_NORMAL 3; check success 
00000000 ' 8F DD 064 PUSHL #SS$_NORMAL 
FO'CF 1 FB Bee CALLS #1 -WEREG CHECK 
O21F"CF O175°CF DE 065 718 MOVAL W*GETJPI,W*SERV_RAME 3 set service name 
O65F 719 SGETJPI_S PIDADR = W*PID1,- Al 
65F 720 LST = W°GET_LIST 3 get process status flags B! 
676 721 FAIL_CHECK SS$_NORMAL ; check success B! 
00000000'8F oD 0676 PUSHL ~ #SS$_NORMAL B! 
FO'CF O01 FB 067C CALLS — #1 ,W*REG CHECK B! 
O21F CF 16E'CF DE 0681 MOVAL W*CREPRC,W*SERV_RAME ; reset service name Bi 
OOOOOICF‘EF FFC7S9FF BF CA 068 BICL #JPI_STS_NMASK,STS ; clear out any extraneous Bi 
69 ; bits set by the Swapper 
0038C600 8F O1CF ‘CF D1 69 CMPL W*STS ,#JPI_STS_MASK ; flags OK? 
13. 13 069C 
69 
6A 
6A 
6AC 
1 


FAWN WII nononononononon mn 


7 
158 
724 
4 5 
OICF'CF DD O 7 : PUSHL W*STS ; push received 
ooserery 8F DD 7 3 PUSHL #JPI_STS_MASK ; push expected 
O134°CF OF 7 PUSHAL W* G ; push str variable 
Oc3F'CF O03 FB 7 4 , 50s CALLS #3,W*PRINT_FAIL ; print the failure 
Qos 7 ¢ SDELPRC_S PIDADR = W*PID1 ; needed for bit 5 in STS 
56 D4 068 7 CLRL 3 set expected status return 
OD30°CF F bet 734 CALLS #0,W*CRE CHECK ; check image exit status 
56 00000000'8F oD 6C 735 MOVL #S5$_NORMAL ,R6 ; reset the expected status return 
ge 
«oe 3 8 3 test the STSFLG's _G all clear 
sce F0 : 
oct 741 NEXT_TEST 
6CcCc STP12: 
0004 'CF f + oct sot i £12. U“CURREMT 16 
OBF 3° CF 1 FB ret CALLS #1,W*REG SAE 
OOA3'CF Bee ce DE 060 Pg MOVAL W*PRIVS,W*CRE+CREPRCS_PRVADR ; setup PRVADR parameter 
ons" mall D 6DF 74 MOVAL W*PROC_NAME,W*CRE+CREPRC$_PRCNAM ; setup PRCNAM parameter 
OAF *CF ee 6E6 744 MOVL #2 W*CRE+CREPRCS BASPRI ; setup BASPRI parameter 
OOB3'CF O565'CF D oe 745 MOVL _W*PROC_UIC,W*CREFCREPRCS_UIC =; setup UIC paraneter 
F eg SCREPRC_G W*CRE 3 try it all _ 
O21F°CF O175"CF ODE F 74 MOVAL W*GETJPI,W*SERV_NAME 3 set service name 
8 ore $GETJPI_S PIDADR = W*PID1,- 
7 74 ITMLST = W*GET_LIST ; get the process status flags 
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9042000 CREPRC TESTS Hiatt 89: 38: y bi eae aeay ees ss MAR; 1 i (1) 
719 += 750 FAIL =CHECK SS$_NORMAL ; check success 
pp090000" f DD 0719 PUSHL ayse ORMAL 
FD FB QO7I1F CALLS g WeREG CHECK 
O21F'CF AoE c DE 0724 751 MOVAL W*CREPRC,W“SERV_RAME 3 set the service name 
000001CF ‘EF ec? OFF BF CA 07 f ; BICL #JPI_STS “NMASK, STS ; clear out any extraneous 
7 ; bits set by SR spe gruanver 
00 me et 7 754 CMPL W*STS ,#*x0 ; are if °8y a 
be 738 755 BEQL 60$ ; br 
OICF'CF DD O73D 7 § PUSHL wW*STS : i received 
DD 074 75 PUSHL #*Xx0 3 push expected 
O134'CF DF 074 £38 PUSHAL W*STSFLGS ; push str variable 
OC3F'CF 03 FB me £23 608 CALLS #3. W*PRINT_FAIL ; print the failure 
res 761 SWAKE Jf DADR = W*PID1 ; cause process termination 
OD30'cF 00 FB 075 762 CALLS” #0,W*CRE_CHECK ; check image exit status 
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$bus886 GETJPI TESTS iat Yi 3:30:44 DET PSY RISA SSS oS MAR: 1 . (1) S) 
75E 764 .SBTTL GETJPI TESTS P 
75— 40765; P. 
75E £66 3 P 
4 : fe ; SGETJPI tests 
4 : 783 ; test the default case with all items _S 4 
75E 771 Gs Pr 
f E 772 NEXT_TEST os 
fet STP13 Pt 
0004'CF D 00 075 MOVL #13,W*CURRENT_TC Pt 
0 dd 076 PUSHL Pt 
OBFS'CF_ O01 FB 076 CALLS — #1 W*REG SAVE mn 
O21F'CF O175'CF DE 7A 773 MOVAL W*GETJPI,W*SERV_NAME 3 set service name Pt 
O069'CF O17C'CF DE 07 1 77% MOVAL W*UM,W“MODE > set the mode Pr 
778 38775 PRIV ADD, SETPRV 5 oy ready to set privileges Pt 
Ta 776 ; to known set for testing Pt 
079 777 SSETPRV_S ENBFLG = #1,- ; enable expected privileges 
0798 778 VADR = PRVMASK 
O7AB 779 SSETPRV_S PRVADR = NPRVMASK ; disable ony extra privileges 
QO7BE 780 ; set in SYSTEST account 
O7BE 781 FAIL_CHECK SS$_NORMAL ; check success 
00000000'8F OD O7BE PUSHL ~ #SS$_NORMAL 
OBFD'CF 01 FB O7C4 CALLS #1,W*REG_CHECK 
07C9 ree SGETJPI_S ITMLST = W*GET_LIST : try _§ 
ODE 78 FAIL_CHECK SS$_NORMAL ; check success 
00000000'8F DD O7DE PUSHL ~ #SS$_ NORMAL 
OBF DCF 01 FB O7E4 CALLS #1,W"REG_CHECK 
56 QOOO0'CF DE O7E9 784 MOVAL W*ACCOUNT,R6 3 set questionable data adr 
57 OQ4B6'CF ODE 1433 785 MOVAL W*JPI_GOOD,R : set good data adr 
58 (00000044 8F D0 O7F3 786 MOVL #JPI_CIST SIZE,R8 : set the byte count 
ODDA'CF 0 FB gore oe CALLS #0,W*JPI_CHECK 3 check the results 
O7FF 789; 
O7FF 790 ; test _G default case with all items | 
O7FF 791; 
gore 43 3° 
dai 79 NEXT_TEST 
bore STP14: 
0004 'CF oF dO 4A MOVL #14,W*°CURRENT_TC 
0 DD 04 PUSHL # 
OBF 3°CF 01 FB 6 CALLS  #1,W*REG_SAVE 
794 SGETJPI_G at 3: try G 
1 795 FAIL_CHECK SS$_NORMAL ; check success 
00000000'°8F oD 14 PUSHL ~ #SS$_NORMAL 
OBFD'CF 1 FB 1A CALLS  #1,W"REG_CHECK 
ODDA' CF 0 FB if a - CALLS #0,W*JPI_CHECK ; check the results 
4 798; 
4 799 ; test local EFN 
4 2 3 
4 1 ;5- 
4 2 NEXT_TEST 
4 STP15: 
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0004 'CF F D0 4 MOVL #15,W*CURRENT_TC 
: 0 Odd 08¢9 PUSHL 
OBF3'CF 1 FB CALLS Wia¥ ence SAVE 
O21F°CF O16E'CF ODE 3 MOVAL W*CREPRC,W*SERV_RAME ; set service name 
4 SCREPRC_S QUOTA = W*QUOTA_LIST,- 
7 5 IMAGE = W*IMAGE-NAME,- 
7 38 PIDADR = W*PIDI,-<- 
7 PRCNAM = W*PROC * NAME ; create the target process 
61 08 FAIL_CHECK SS$_NORMA ; check for success 
00000000'8F DD 61 PUSHL  #SS$_NORMAL 
BFD'CF 01 FB 67 CALLS #1 -WEREG CHECK 
O21F'CF O175'"CF ODE 8 808 MOVAL W*GETJPI,W*S RV_RAM 3 reset the service name 
10 SGETJPI_S EFN =f 
87 811 ITaGST = WGET_LIST ; try S with EFN 
0888 12 FAIL_CHECK SS$_NORMAL 3 check success 
90090000" 8F DD 0888 PUSHL ~ #SS$_N 
OBFD'CF 01 FB i CALLS # “URE. CHECK 
89 813 SWAITFR_S EFN #1 ; wait for completion 
ODDA'CF O00 FB O89C 814 CALLS #0,u° JPL. CH ECK 3; check the results 
OOC7'CF 01 DO Q8A1 815 nOvL #1 ,W°GETFGETJPIS$_EFN 3; set the EFN 
OOCB'CF O23B'CF DE O8A6 816 W*PID1,W*GET+GETIPIS $_PIDADR 3; set the target process PID 
QO8AD 817 Set JP1_G w'Gef ; try .G with target process 
0886 «86818 AIL ~CHECK SS$_NORMAL ; check success 
00000000'8F DD 0886 PUSHL  #SS$_NORMAL 
OBFD' CF 01 FB O8BC wit Hn UFREG. CHECK 
819 SWAITFR : wait for completion 
ODDA'CF O00 FB 530 A CALLS “ho" Uy _CHECK : check the results 
B33 3 
825 ; test common EFN with _S 
ase : 
825 ;- 
826 NEXT_TEST 
STP16 
0004 'CF 10 00 MOVL #16,W*CURRENT_TC 
00 DD PUSHL 8 
OBF3'CF 01 FB 


#1 ,W*REG_SAVE 
é5,- 


CALLS 
SASCEFC_S EFN = 
— = w* Fc _NAME 


827 

828 NAM get a common EF 
4 SGETJPI_S EFN 

830 TMLS 

831 


SOOO COCOSOOSOOOCOOOOSOOOOOOOOOOSOSOOCOOOOoOO 


AOUME AWAD ININ OOO MMIII IONOMOOOHOOOOOO 
MTMIMOVUENR DONA — LS T"OQODODOCOCTWWO LW THT HHH > — 


6 
L w* Get T_LIST > try _S with CEFN 
FAIL_ cnece = NORM 3; check success 
00000000'8F oD fees 
OBFD'CF 01 FB cals W"REG_CHECK 
3 SUAITFRS EFN 3; wait for completion 
ODDA'CF 00 FB CALLS #0 WAJPI ge 3 check results 
OOC7"CF 00000041 8F D0 4 708 UGE ETSCETOPIS_EFN > set the common EFC 
5 $GETJPI_G W*GET 3 try CEFC, and target process 
836 FAIL_CHECK SS$_NORMAL : check i success 
00000000'°8F oD PUSHL #SS$_NORM 
OBFD'CF 01 FB CALLS # W*REG_ CHECK 
7 SWAITFR_S EFN = #65 ; wait for completion 
ODDA'CF 00 FB 8 CALLS #0 W" JP CHECK 3 check the results 
39 SDACEFC_S EFN ="#6 : release the CEFC 
41 3+ 


m9 
od 5 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 00:50:17 caeeee.¢ ov Page 23 
$1880 GETJP1 TESTS set 0:30: 4 UET PSY.SR oe yee 80 MAR; 1 ° 3) 
9 42; 
36 2g 3 ; test PIDADR 
96 44 ; 
3 45 ;- 
36 46 NEXT_TEST 
96 STP17: 
0004'CF 11 DO 096 MOVL #17,W*CURRENT_TC 
00 DD 096 PUSHL # 
OBF3'°CF 01 FB 0969 CALLS #1,W*REG_SAVE 
96E 47 SGETJPI_S EFN 2 - 
96E 48 PIDADR = W*PID1,- 
i ee AN lege a 
3; check success 
00000000" 8F OD O38e “ PUSHL ~ ass NORM 
OBFD'CF 01 FB 0988 CALLS #1 »W*REG_ Check 
0990 51 SWAITFR_S EFN = #2 3; wait for completion 
ODDA'CF 00 FB 0999 26 CALLS #0,W*JPI_CHECK 3 check the results 
099E 53 3+ 
O99E 854; 
O99E 855 ; test PRCNAM 
O99E 856; 
O99E 857 ;- 
O99E 858 NEXT_TEST 
O99E 
O99E STP18: 
0004 'CF 12 DO 099 MOVL #18,W*CURRENT_TC 
00 DD 9A PUSHL 
OBF 3'CF 01 9A5 CALLS " »W*REG_SAVE 
O9AA = 859 $GETJPI_S crw #3,- 
O9AA 860 PRCN NAM = = U*Bnoc NAME , = 
O9AA =: 861 ITMLST = T_CIST 3 try _S with PRCNAM 
09C1 862 FAIL. CHECK ssf NOR MAL 3; check success 
00000000'8F oD 09C1 PUSHL ~ #SS$_NORMAL 
OBFD'CF 01 FB 09C7 CALLS "1 »W*REG_ CHECK 
O9CC 863 SWAITFR_S EFN ; wait for completion 
ODDA'CF 00 FB O9D5 864 CALLS “#0,W*JPI ~CHECK 3; check the results 
O9DA 865 $GETJPI_S cFN 
O9DA 866 CNAM = = utesr MOD_NAME_D,- 
O9DA 867 Tin LST = as T_CIST™ ; try _S with PRCNAM on self 
O9F1 868 FAIL_ CHECK ssf NORM gy 3; check success 
00000000 ' 8F DOD oF 1 PUSHL #SS$_NORM AL 
OBFD'CF 01 FB O9F7 CALLS #“", W"REG_CHECK 
HA’ £68 SWAITFR_S EFN ; wait for completion 
ODDA'CF 00 FB aah oy a CALLS “#0,W*JPI _CHECK : check the results 
AOA Le 3 
AOA 73 ; test I0SB 
AOA 74; 
AOA 75 :- 
OA A 76 NEXT_TEST 
AOA STP19: 
0004'CF 13 DO OQAQOA MOVL #19,W*CURRENT_TC 
DD AOF PUSH 


oBF3'CF 01 FB OAIT CALLS #1,W*REG_SAVE 
Al6 877 SGETJPI_LS EFN == #4, = 


SATSS535 
v04-000 


00000000" 8F 
OBFD'CF 01 
QDDA'CF 00 
QO04'CF 14 

00 

OBF3'CF 01 
rte all 
OBFD'C 01 
27 

04 AC 05 
04 AC 
QOE6'CF 

OC3F‘CF 03 

ODDA'CF 00 

OO04'CF 15 

60 

OBF 3° CF 1 


DO 
DD 
FB 


MON AOOo m-< 


SWW Set E 


OOOOCOCOCOOoOO —m\ 


>>>r>rrrrr,r 


AGA 


905 


wOwowowowowowowowvowvnowowowovono 
he et 1 OOOO 


SOWONAOULS WN —OOOno 


20S: 


(suct s2c.) 1 ~SEP~1984 00:50:17 
SEp=1984 04:30:54 
10SB__ = W*IOSTAT,- 
PRCNAM = W* IMAGE _NAME, ~ 
PIDADR = W*PID1,= 
ITaLst = W*GET_CIST 
FAIL CHECK SSS_NORMAL 
PUSHL ~ wsss NORMAL 
CALLS W*REG_CHECK 
SWAITFRS EFN = i 
CALLS “#0,W*JPI_CHECK 


; test ASTADR and ASTPRM _S 


NEXT_TEST 
MOVL #20,W*CURRENT_TC 
PUSHL 
CALLS _#1,W*REG_SAVE 
SSETAST_S ENBFLG = #0 
SGETJPI~S ASTADR = B*20$,- 
ASTPRM = #5,- 
SB ufOsTA 
PRCNAM = U IMAGE TAME , = 
PIDADR = W*PID1, 
LST _ wie GeT. {ist 


ITM 
FAIL se SS$.N 
PUSHL NPsss: NORMAL 
CAL Us #1 ,W*REG_ CHECK 
SSETAST_S ENBFLG = #) 
SHIBER_S 


40$ 
WORD “HeR2 R3,R4> 
CMPL 5, 4(AP) 
BEQL $3 
PUSHL  4(AP) 
PUSHL #5 
PUSHAL W*AST_PARAM 
CALLS #3, OBRINT FAIL 


#0,W*JPI_CHECK 


NEXT_TEST 
OVL  #21,W*CURRENT_TC 
PUSHL 
CALLS #1,W*REG_SAVE 


SSarsssss.mar;1 29° 


try all this stuff 
check success 


wait for completion 
check the results 


disable AST's 


try an AST 
check success 


let er rip 
wait here for completion 
jump over the AST routine 


is is the right param 
br if 0 ies 


push the received 

push expected 

push the string variable 
print the failure 


check the results 
time to wake up 
return 


test ASTADR and ASTPRM _G to test all offset definitions 


24 
(1) 
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ACD 921 SSETAST_S ENBFLG = #0 ; disable AST's 
OOC7'CF OC AD6 9 ¢ MOVL 3,5 W*GET+GETJPI$_EFN ; setup EFN param 
OOCB' CF é B'CF DE AD 9 MOVAL w*P{D1 W*GET+GETJPI$ PIDADR ; setup PIDADR param 
OOCF ‘CF A'CF DE QAE 924 MOVAL W*IMAGE_NAME,W*GET+GETJPI$_PRCNAM ; setup PRCNA param 
0007" CF 2 age DE OAE 925 MOVAL wW* Ost Ay W°GET+GETJPI$_10SB 3; setup IOSB param 
QODB'CF — 25°AF AFO 906 MOVAL 8*20$,W*GET+GETJPIS ASTADR ; setup ASTADR param 
OODF "CF FFFFFFFF 8F AF6 9 MOVL #- x@ GET+GETJPI$_ASTPRM 3 rg ASTPRM param 
AFF 928 SGETJPI_G W*°G ; try it all _G 
pe0s 929 FAIL_CHECK SS$_NORMAL 3 check success 
00000000 ' 8F DD 0808 PUSHL #SS$_NORMAL 
OBFD'CF F 3 CALLS #1,W*REG_CHECK 
Bt 339 SSETAST_S ENBFLG = #1 ; let er rip 
ait 931 $HIBER_S ; wait here for completion 
23. 11 «OB 336 BRB 408 ; jump over the AST routine 
0B25 3 208: 
001C 0B25 934 «WORD “M<R2,R3,R4> 
04 AC FFFFFFFF 8F Di QOB27 935 MPL #-1,4(AP) :; is this the right param 
12 13 OB2F 936 BEQL 30$ 3; br if OK 
04 AC OD 1 937 PUSHL 4(AP) ; push the received 
FFFFFFFF 8F DD 0B34 938 PUSHL #-1 3; push expected 
4 DF QOB3A 939 PUSHAL W*AST_PARAM 3 push the string variable 
Oc3F'CF O03 FB or ae9 sos CALLS #3,W*PRINT_FAIL 3 print the failure 
ODDA'CF 00 FB 0B43 ae8 CALLS #0,W*JPI_CHECK ; check the results 
0B48 943 40$: 
0B48 944 ;+ 
0B48 945 ; 
0B4 946 ; test a shorter List starting with a PCB item followed by a JIB item 
0B48 8947 ; 
0B48 948 ;- 
0B48 949 NEXT_TEST 
0848 
0B48 STP22: 
0004 'CF 16 DO 0B48 MOVL #22,W*CURRENT_TC 
00 OD 08640 PUSHL 
OBF3'CF 01 FB OB4F CALLS #1,W*REG_SAVE 
0B54 950 SGETJPI_S EFN = #17,- 
0854 951 PIDADR = W*PID1,- 
0B54 828 ITMLST = W*SHORT_LIST 3; try _S, target process, short List 
0B6B 95 FAIL_CHECK SS$_NORMAL z check success 
00000000'8F oD 0868 PUSHL ~ #SS$ NORMAL 
OBFD' CF 01 FB 0B71 CALLS #1,W"REG_CHECK 
56 OQOOA'CF DE OB76 954 MOVAL W*CPULIM 3; set questionable data adr 
57 Q4cO' CF DE 78 «955 MOVAL W*JPI_GOOD_SHRT,R7 : set good data adr 
8 A 0D ; 956 OVL #iPl CIST_SIZE1,R8 3; set the byte count 
ODDA'CF 0O FB 957 CALLS #0,W"JPI_CHECK ; check the results 
00 DD +3 958 PUSHL #0 ; push a dummy parameter 
OBF3'CF 01 FB A 959 CALLS #1,W*REG_SAV 3; Save a reg snapshot 
B8F 960 $GETJPI_S EFN = - 
af 961 PRCNAM = W*TEST_MOD_NAME_D,- 
BSF 306 ITMLST = W*SHORT_LIST ; try _S, self, short List 
A6 =96 FAIL_CHECK SS$_NORMAL ; check for success 
00000000'8F oD A6 PUSHL ~ #SS$ NORMAL 
OBFD ‘CF 01 FB AC CALLS #1,W™REG_CHECK 
1 964 SWAITFR_S EFN = #18 : wait for completion 
ODDA'CF 00 FB QBBA 965 CALLS #0,W*JPI_CHECK ; check the results 
OBBF 966 SWAKE_S PIOADR ="W*PID1 : get rid of the target process 


ee 
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BCC 967 TEST_END 
Qoucrce pd OBC PUSHL W*TMD_ADDR 
OO48'CF DD OB PUSHL W*TMNZADDR 
2 DD OBD4 PUSHL #2 
0044'CF DD OBD6 PUSHL  W*MOD_MSG_CODE 
00000000'GF 04 FB OBD CALLS #$$T17G*LTBSSIGNAL 
0044'cF 01 1¢ 01 FO OBEI INSV #1 sts tS$V_INH1B_ MSG,#1,W*MOD_MSG_CODE 
0044'CF DD OBES PUSHL  W*MOD_MSG~CODE 
00000000'GF 01 FB OBEC CALLS #1, G*SYSSEXIT 
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BF $ -SBTTL ROUTINES 
of 4 -SBTTL REG_SAVE 
BF re i ; FUNCTIONAL DESCRIPTION: 
+4 fh : Subroutine to save R2-R11 in the register save location. 
BF 975 ; CALLING SEQUENCE: 
BF af8 3 PUSH ; save s_cumay parameter 
4 af : CALLS #1,W*REG_SAVE ; save R2=R1 
BF 358 ; INPUT PARAMETERS: 
OBF 980 ; NONE 
OBF 981 ; 
OBF 9 ¢ ; OUTPUT PARAMETERS: 
OBF 983 ; NONE 
OBF 984 ; 
OBF 985 ;-- 
OBF 9 § 
OBF a8 REG_SAVE: 
OFFC OBF3 988 .WOR “M<R2,R3,R BGs R7,R ee oho, R10,R11> 
OOO8'CF 14 AD 28 ee OBF5 989 MOVC #4210, BAR ‘BS W*REG_SAVE_AREA ; save the registers in the program 
4 OBFC 990 RET 
OBFD 8991 -SBTTL REG_CHECK 
OBFD 992 ;++ 
OBFD 9935 ; FUNCTIONAL DESCRIPTION: 
OBFD 994 ; Subroutine to test RO & R2-R11 for pro a content after a service 
OBFD 995 ; execution. A > snepenes is taken by the REG_SAVE routine ot the 
OBFD 996 ; beginning of each step and this routine i§ executed after the 
OBFD 997 ; services have been executed. 
OBFD 998 ; 
OBFD 999 ; CALLING SEQUENCE: 
OBFD 1000 ; PUSHL #SS$_XXXXXX ; push expected RO contents 
OBFD 1001 ; CALLS #1 UFREG CHECK ; execute this routine 
OBFD 1906 : 
rere 1005 ; INPUT PARAMETERS: 
FD 1004 ; expected RO contents on the stack 
OBFD 1005 ; 
OBFD 1308 3; OUTPUT PARAMETERS: 
OBFD 1007 ; possible error messages printed using SPUTMSG 
OBFD 1908 3 
OBFD 1009 ;-- 
OBFD 1010 
FD 1011 REG_CHECK: 
OFFC FD 1 i WOR *M<R2 RS ,R4,RS,ROR7,RB,RI,RIO,R11> 
50 04 AC 01 FF 101 CMPL 4(AP) ,RO ; is this the right fail code? 
0 13 0CO3 1014 BEQL 10$ 3; br if yes 
i DD OC 1015 PUSHL RO : push received data 
04 DD OC 1 18 PUSHL ad : push expected data 
0008" tf DF OCOA 101 PUSHAL W*EXP : push the string variable 
OCSF'CF O35 FB ei ! 18 108 CALLS #3" W*PRINT_FAIL ; print the error message 
0008'CF 14 AD 29 0C13 1020 CMPCS #4210,*X14(FP) ,W*REG_SAVE_AREA ; check all but RO 
i CIA 1021 BEQL 20$ ; br if 
560 53 ee ; c? 3h ! § svel #REG_SAVE_AREA,R3,R6 : calculate the register number 
7E ¢ 81 37 1024 ADDB #*X2,.R6,-(SP) 3; set number past RO-R1 and save 
CA 0C2B 1025 BICL2 #3.R4 : backup to register boundrys 
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5015888 REG_CHECK eet 0:30; 44 Be eey aes Say ees es. marst . 2 
> B-oa & 1 § BICL2 #3,R3 
61 DD OC31 1 PUSHL (Rf) : push received data 
6 DD OC 1 8 USHL (R3) 3 push expected data 
006 tf DF QC 1 PUSHAL W*REG 3; set string pntr param. 
OC3F'CF 4 FB : : } 9 208 CALLS #4,W*PRINT_FAIL ; print the error message 
04 OC3E 1 ee pee 
: ; ! i ~SBTTL PRINT_FAIL 
C3F 1035 : FUNCTIONAL DESCRIPTION: 
: : } 8 3 Subroutine to report failures using SPUTMSG 
C3F 4 8 : CALLING SEQUENCE: 
? | 3; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
C3F 1040 ; PUSHL RECEIVED PUSHL EXPECTED 
C3F 1041 ; PUSHAL Yell. VAR PUSHL RECEIVED 
CSF 1 g 3 CALLS #3,W*PRINT_FAIL PUSHAL STRING_VAR 
OC3F 1043 ; CALLS #4,W*PRINT_FAIL 
OC3SF 1044 ; Mode #3 PUSHAL STRING_VAR 
peer 1902 ; CALLS #1,W°PRINT_FAIL 
OC3F 1047 : INPUT PARAMETERS: 
tH 1968 $ Listed above 
OC3F 1050 : OUTPUT PARAMETERS: 
OC3F 1051 ; an error message is printed using SPUTMSG 
OC3F 1926 3 
gee Hee i 
OCSE 1055 PRINT_FAIL: 
003C OC3F 1056 WORD “M<R2,R3,R4,R5> 
0041 1057 SFAO_S W*CS1,W*MESSAGEL,W°MSGL ,#TEST_MOD_NAME ,W*SERV_NAME ,W*CURRENT_TC 
Bcge 1058 SPUTASG_S W*MSGVEC ; print the message 
04 6c 4 bce? 1923 or sab) 208 : he this a register message? 
3 br es 
01 of 4 bcos +24 oer (AP) ,#1 : he this: just a message? 
Beep 1387 $FAO_S U"CS2,W“MESSAGEL.W°MSGL,4(AP) ,8(AP) .4 (APS -12(AP) 
40 «+11 345 19e8 108 BRB 30$ 3; goto output message 
343 1996 i SFAO_S W*CS3,W*MESSAGEL,W*MSGL ,4(AP),16(AP) ,8(AP) ,4(AP) , 16(AP) ,12 (AP) 
19 #11 pecs 138 208 BRB 30$ ; goto output message 
O22F'CF 04 aC DO OCCS 1 $3 "— MOVL. = @ CAP) ,WMSGVEC1412 : save string address 
CCB 1070 SPUTMSG_S W*MSGVEC1 : print the message 
i a | te ! 4 30s BRB 40$ ; skip the other message 
343 1978 oa SPUTMSG_S W*MSGVEC ; print the message 
QD03'CF 00 FB OCEF 1075 = CALLS #0, W*MODE ID ; identify the mode 
OO4C'CF  QO2A'CF DF CF4 1 6 MOVAL w*fEST_MOD FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 03 00 02 fy cre + 144 iusv #ERROR, #0,93,W*MOD_MSG_CODE 3; set severity code 


<“” 


F 10 
SATS3539 mode tT SYSTEM SERVICE TESTS (SUCC S.C.) bt it 38s 89 +30: 7 AX/VMS Becca vos eey nan: ' Page 


29 
UETPSY.S (2) 


~SBTTL MODE_ID 


; FUNCTIONAL DESCRIPTION: 
Subroutine to identify the mode that an exit handler is in. 


: CALLING SEQUENCE : 

: ALLS @# »W°MODE_ ID 

INPUT PARAMETERS: 

; MODE contains an address pointing to an ascii string desc. 
: of the current CPU mode. 


; ¢ OUTPUT PARAMETERS: 
NONE 


MODE_ID: 


003¢ Py unces: oR3,R4,R 


VSVvoIVTVTVVCVUVUVTVVVTVTVUVVTVTVTVTVVVTVTVTVCTCTT TTT CTVTCT°00000090°970°9°9TCT"7 VY 


WIAA AINI AAAI AIA AAAI AIA AAI AWWA I 2 QOOCOCOCOCOCOCOCOO 


: 

0 w*Cs DemESgRCEL, W*MSGL, MODE ; format the error message 
0 8 E SPUTRSG_ S W°MSGVEC : ortat the mode message 

0 8 ~SBTTL CRE_CHECK 

0 : FUNCTIONAL DESCRIPTION: 

8 PY Routine to check the process exit status of a created process. 

0D30 : CALLING, SEQUENCE : 

0 4 : ALLS #0,W*CRE_CHECK ; save R2-R11 

5 0 > INPUT PARAMETERS: 

0 : = s Bipeceee process exit st atus 

8 8 3 check flag BITO = 1 means check the PID 

6 0 : OUTPUT PARAMETERS: 

0 3 NONE 

0D30 3 

0D30 

8 0 CRE_CHECK: 

: 


BALA @§ OOOO NE WIN OOD NAMEN OS OD NIA NE WIN 3 O OD NA UE WIN O OONAUE WO 


a a a a 8 st a a 9 = hs a ns a as tn ss 9 2 ss SS) 4 4 ss 9 SS ts 


OFFC oW os R3,R4,R5,R6,R7,R8,R9,R10,R11> 
$Q10W_S EFN = 
FUNC = #108 READVBLK , ~ 
CHAN = W*MBCH 
10SB = W*1OSTATUS,- 
Pi = UF ,- 
D P2 = #10 : read the mail 
56 O24F'CF D1 OD CMPL W*MBUF +ACCSL_FINALSTS,R6 ; is the status as expected? 
13 OD BEQL 1 ; br if OK 
O24F°CF DD OD6 PUSHL W*MBUF+ACCSL_FINALSTS 3 push recetved 
DD 0D64 PUSHL 3 push expected 
OOD8'CF DF 0066 PUSHAL W*EXP 3 push str ng variable 
FEDO CF O03 FB 4 7 108 CALLS #3,W*PRINT_FAIL ; print the failure | 
1A 57 €9 QD6F BLBC R7,20$ 3 apeulé ve check the PID? 
0247°cCF O23B'CF 01 OD : CMPL © W*PID1 ,w*1OSTATUS+4 ; check ¢ e PID 
11 13° OD BEQL 20$ 3 f HH good | 


<“” 


sen senence vents chal $3 gees BOAT RECT ESET oass "OB 


PUSHL ups TAtuses ; push received 

PUSHL apie : push expected 

PUSHAL PID_STR 3; push the string variable 
CALLS #3 ru°PRINT_FAIL 3 print the failure 


SATS3525 cr 


47'CF OD 
ZR. te D 
6 Ef Dd 
FEBS CF Ee. 


~m 
o 
bed 


RET 
~SBTTL JPI_CHECK 


: FUNCTIONAL DESCRIPTION: 
Subroutine to check the results of a JPI service 


; ; CALLING SEQUENC 
CALLS @# WAuPl CHECK ; check the results 


ATS 
CH 
0 INPUT PARAMETERS: 
0 3 R6 = questionable data address 
8 ; R7? = good data address 
0 : 
0 ; 
0 ; 
0 ; 
0 


R8 = byte count 


Y 
K 
B 
; 
C 
C 
Dd 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D ; OUTPUT PARAMETERS: 
: ; NONE 
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Dd 
D 
D 
D 
D 
D 
D 
D 
D 
D 
D 
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D 
D 
D 
D 
D 
D 
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D 
D 
D 
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: 
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ARGLST1: 
00000099 OD -BLKL 3 
0099 CTRSTR: 
65 20 61 74 61 64 00000DA1'010 9009" 0D99 -ASCID /data error at offset !XW, good data = !XB bad data = !XB./ 
73 66 66 6F 20 74 61 20 72 6F e ie ODA7 
64 6F 6F 67 20 eC 57 58 21 $6 7 46 DB3 
20 42 58 21 20 3D 20 61 74 61 64 20 ODBF 
21 20 3D 20 61 74 61 64 20 64 61 6@ oocB 
2— 42 58 ODD7 
DDA 1165; 
DDA 1166 JPI_CHECK: 
OFFC ODDA 1167 WORD amcR2 R3, R4.R5,R6,R7,RB,RI,R10,R11> 
67 66 58 29 ODDC 1168 CMPC3 (R&), (R75 ; check the buffer 
34 13 DE 1189 BEQL FOE: : goo od 
FFA1 CF 51 QOO000000'8F C DE2 1170 SUBL3 FAC COUNT R1 yest 3 get 4 fer offset 
FFAO CF 63 9A ODEC 1177 MOVZBL (R3),W*ARGLST1+4 : get the ood data 
FEOF CF 61 9A ODFI 1178 MOVZBL (RA) UA ARGL ST1+8 : get the bad data 
ODF6 117 $F AOL S W°CTRSTR,W°ML,W*GETBUF ,W*ARGLST1 ; +4 Te cocdable 
O183'CF DF OEOD 1174 PUSHAL ; push the desc. address 
FE29 CF 001s FB SOOE11.—«s.1175 CALLS #1 WN PPRINT FAIL ; int the failure 
E16 1126 10$: 
04 0E16 117 RET 
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>t RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ....° MACRO 
- .END - SATSSS35 


SEP=1984 UETPSY.SRCJSATSSS 
1 0 MOD_MSG_PRINT: 
1} § : PARR ARARAAAAAASLALASLALELELALASAAAAEASASARASLES ESAS AEE EEE EE EEE EEE EEE EES 
3 w w 
1184 : * PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES * 
1 23 8 (USING THE PUTMSG MACRO). . 
° ® 
1} § : SHAKATAK KAKKTAKAAEKARAAAARAAARAARAARAAARARARARATAARAREREARAEARAEAAEATEAAE 
11 § : PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
1 - RSB t eee AND RETURN TO CALLER 
1189 & tHMRTN: 
113? 3 pARRBRAAAAABAALAAAALALASALALALAELAEREELESER ERE ERE ASE EERE EERE REE E RE EASA SS 
s a 
1195; * CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER * 
1196 ; A CMKRNL, CMEXEC SUP SYSTEM SERVICE IS ISSUED ‘ 
1197 : * BY THE MODE MACRO ('TO' OPTION). IT 4 * 
1198 : A JUMP INDIRECT ON A FIELD SET UP BY MODE. IT HAS . 
1199: * THE EFFECT OF RETURNING TO THE END OF THE MODE . 
! + 3 MACRO EXPANSION. * 
: @ ® 
: 88 : PRRRAAAAAAAARALALAZAAAZALEAALSALELERLESESERE RE SEE EEE RARER ERE ERS R ERE E SS 
1204 ° .wORD 0 ; ENTRY M 
05 jmp @CHM_CONT + RETURN TOY MODE MACRO IN NEW MODE 
1509 
1208 
1209 


<y 


| 


$8599. maR: 1 _ %) 


10 


- SATS SYSTEM SERVICE TESTS csuce $.C.) "9 


SATSSS35 
Symbol table 


AOD VOWO VO VWI TOO FL WOT OLAV VWI OO Wee OvTTOR-OVWO-~ST 
pwmemee SESS SSS 1 tod te eb 4 tt TT -—-—-Or--OCOOOWuuwen 


SOOCCOCOOCOOCOOSOOCOOOSOOCGSOOSCOSOOSOOOOOOOOOOCOOOOOOOOOOOOOOOOOOSoOOoOO 
SOOOOCOOCOCOOCOOOCOSOOSOSOSOOSOSOSOSOSOSOOSOOOOCOOOOOoSoO 


c= - =s 
oa nmVa 
<a @Mdu0oO<«Zz 
ZEA Ow 
(=) C=) - “YNnuw Or a= 
x - bend <«dwe FTAA 
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‘>> eeS = =! | <<a PAPAAPAAAAAY 
aan JIISZF ere 5 WI eV Fe JwwS SSS Ce et at nt at at nd ad et et Pm 
OF SewevvVv3sszZezoo>r 3468. Fe 3 Sww 22 jijsCeo-- 23A0.00000000 J22 
AUO. 0 Suu MYRVY Jt YYDD EE OFF>> VVIIEK E€O000R —O--7-R-7A-.O | [~ hh 
PAUSE Eero BBMDOOCCSOS SS VVVVVY SBE AVVO YZ ee ee OO. 
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RTT TODO OO LW OVOD VO OWOD VWI FO EL WOWT MO Swe< Que TOV VOOwTODvooor™ 
COOODOOCOMMBDUNNOOiN OOO WOR. PPR. CU MID DWDDA AMUN 
OOOOOOOS BOCGOOCOOOCOOOOCOCOOOS- SOOO oOoOwWlOoO 


BASPRI 
RROR 
IMAGE 
INPUT 
ITMLST 
XUNT 
GS 
TPUT 
IDADR 
PRCNAM 
PRVADR 
QUOTA 
STSFLG 


E 
MB 
NAR 
OU 
P 
UIC 
K 
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$ 
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L_FINALSTS 
REPRC 
REPRC 
REPRC 

CREPRCS 
REPRC 
REPRC 
REPRC 
REPRC 
REPRC 
REPRC 
REPRC 
REPRC 

CREPRCS 

CHE 


CREPRCS 
C 
C 
C 
C 
C 
C 
C 
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csi 
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Symbol table 
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SYSSF AOL teeeeeee GX 
SYSSGETCHN eeenenee § GX 
SYSSGETJPI eeenenee GX 
SYSSHIBER kkereeee GX 
SYSSPUTMSG eeeeeeee GX 
SYS$Q10W eeeeeeee 6X 5 
SYSSSETAST eeereeee GX 5 
SYSSSETPRN eeeeeeee GX 5 
SYSSSETPRV eeeneeee GX 5 
SYSSWAITFR eeeenene GX 5 
S WAKE keeeeeee 6X 
TEST_MOD_BEGIN 4 19 R ; 
TEST_MOD_FAI AR 
TEST_MOD_NAM 0000000 R 83 
TEST_MOD_NAME_D 00000009 R 8 
TEST—MOD~SUCC 0000 giF R 3 
TEST_PID QOOOO2AF R 04 
TMBU st SE R bs 
TMBUL 44 9 R 0 
TMD_ADDR 44 98 R 04 
TMN_ADDR 0000048 R 04 
PI 00000000 R 04 
TQCNT 000001DB R bg 
TQCNTL QOOOOIDF R 0 
TQLM 00000036 R 02 
TQLML 8s tf Rp 02 
ETP = 00740000 
UETP$_ABENDD = Toa 44 
UETP$_BEGIND = 007410 
UETPS$_ENDED = 00741080 
UETPS_ or = Booey bo 
UETPS_TEXT = 00741130 
Ic 0000003C R 02 
CL $98 040 R b¢ 
UIC_MSG 00144 R 0 
000017C R 03 
RNAME 94444 9k e 02 
USERNAMEL 0000 a8 R 02 
VIRTPEAK QOO001E7 R 02 
VIRTPEAKL BRO ROT ES R Bs 
UME QOO001E1 R 
UMES QOOO01ES R 0 
SAUTH 1ED R 0 
WSAUTHL 1F1 R 
SPEAK 1F9 R 
WSPEAKL OOOO1FD R 
SQUOTA 3 1F3 R 
WSQUOTAL 1F7 R 0 
WSSIZE OOOIFF R 0 
WSSIZEL 0000203 R 0 
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acro V04- Page 3 
Psect synopsis 4: UETPSY.S Year Sat ees se MAR: 1 . 43) 
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! Psect synopsis ! 


perme nwrescen ean eaead 


PSECT name Allocation PSECT No. Attributes 
- ABS . 6008 000 <¢ oF 0¢ 0.) NOPIC USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 000 8 ( “a 1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ITEM_LIST 4h ( 3} ) ¢ ( §°3 PIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC LONG 
RODATA 00000569 ( 1385.) ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD NOWRT NOVEC LONG 
RWDATA a ES 13 ( 673°} 4 ( 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
SATSSS35 E3B ( 3643.) 05 ( 5.) NOPIC  USR REL LCL NOSHR EXE RD WRT NOVEC LONG 
for mwn meme cn wr arma n em eae aren 
! Performance indicators ! 
Suseueeseeeunsseneeuscee$ 
Phase Page faults CPU Time Elapsed Time 
nitialization :00:00. :00:00. 
Initializati 5 00:00:00.0 00:00:00.31 
ponnene processing 134 00:00:00.6 88:88 :9 13 
s 1 472 Fs ob B20: . 
Synbol table sort ! 00:00:01.51 00: B30) 28 
Pass 25 00:00:04.93 00:00:08.6 
Symbol table output 46 a Sa SE 00:00:00.54 
Psect synopsis output 3 00:00:00.03 00:00:00.03 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 949 00:00:26.66 00:00:45.59 


ite working set Limit was 2000 pages. 
116238 bytes (228 pages) of virtual memory were used to buffer the intermediate gofe- 

There were 60 pages of symbol table space at Locate to hold 1010 non-local and 25 local symbols. 
1209 source Lines were read in Pass 1, progyc ing_* object records in Pass 2. 

65 pages of virtual memory were used to define 57 macros. 
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Macro Library name Macros defined 
“$52 28DUAGE 1 TENE Te - me: ! 10 
$$2280 $.OBJJLIB.M ¢ 
“$ 3a SUA ESVSt IBUSTARLET. Cal: 32 4 
TOTALS (all Libraries) 53 


1207 GETS were required to define 53 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS35/0BJ=0BJ$:SATSSS35 MSRC$:SATSSS35/UPDATE=(ENHS:SATSSS35) +EXECML$/LIB+SHRLIBS$:UETP/LIB 
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